home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / GMS / Source / E / Screens / FadingDemo.e < prev    next >
Encoding:
Text File  |  1997-05-03  |  1.2 KB  |  57 lines
  1. /* Fade Demo
  2. ** ---------
  3. */
  4.  
  5. MODULE 'games','games/games'
  6.  
  7. PROC main()
  8.  DEF screen:PTR TO gamescreen, state=0:LONG, loadpic:PTR TO picture
  9.  
  10.  IF gmsbase := OpenLibrary('GMS:GPI/Master.GPI',0)
  11.   SetUserPrefs(0)
  12.   IF (loadpic := LoadPicFile('GMS:demos/data/PIC.Green',GETPALETTE OR VIDEOMEM))
  13.    IF (screen := AddScreen([TAGS,0,
  14.       GSA_MEMPTR1,  loadpic.data,
  15.       GSA_PICWIDTH, loadpic.width,
  16.       GSA_PICHEIGHT,loadpic.height,
  17.       GSA_PLANES,   loadpic.planes,
  18.       GSA_SCRMODE,  loadpic.scrmode,
  19.       GSA_SCRTYPE,  loadpic.scrtype,
  20.       TAGEND]))
  21.  
  22.       ShowScreen(screen)
  23.       WaitTime(10)
  24.  
  25.       REPEAT
  26.         WaitVBL()
  27.         WaitVBL()
  28.         state := ColourToPalette(screen,state,2,0,32,loadpic.palette,$000000)
  29.       UNTIL (state = 0)
  30.  
  31.       WaitTime(60)
  32.  
  33.       REPEAT
  34.         WaitVBL()
  35.         WaitVBL()
  36.         state := PaletteToColour(screen,state,1,0,32,loadpic.palette,$FFFFFF)
  37.       UNTIL (state = 0)
  38.  
  39.       WaitTime(30)
  40.  
  41.       REPEAT
  42.         WaitVBL()
  43.         WaitVBL();
  44.         state := ColourMorph(screen,state,4,0,32,$FFFFFF,$000000);
  45.       UNTIL (state = 0)
  46.  
  47.       WaitTime(50)
  48.  
  49.    FreePic(loadpic)
  50.    ENDIF
  51.   DeleteScreen(screen)        
  52.   ENDIF
  53.  CloseGMS()
  54.  ENDIF
  55. ENDPROC
  56.  
  57.